home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #6 / Amiga Plus CD - 1996 - No. 06.iso / pd / daten / megabook / extras / dialdata.mbrx next >
Text File  |  1996-06-27  |  692b  |  34 lines
  1. /*
  2. ** NComm Dialer for MegaBook 3
  3. ** By Tom Bampton
  4. **
  5. ** © 1996 Eden Software
  6. **
  7. ** This is the script run when the Dial Data option is selected from the
  8. ** Extras menu, please see the docs for creating your own script to dial
  9. ** through your terminal program.
  10. */
  11.  
  12. /*
  13.    Path to NComm, it's run if NComm isn't running
  14.    Change this to the path of your copy of NComm
  15. */
  16. NCommPath = 'NComm:Ncomm'
  17.  
  18. parse arg Number
  19.  
  20. /* Check if NComm is running, if not, run it */
  21. if ~show('P', 'ncomm') then do
  22.     address command
  23.     'run >nil: ' NCommPath
  24.     /* Wait for the ARexx port */
  25.     do 5 while ~show('P', 'ncomm')
  26.         'sys:rexxc/waitforport ncomm'
  27.     end
  28. end
  29.  
  30. address 'ncomm'
  31. options results
  32.  
  33. DIALNUMBER Number
  34.